From 47141e61ad216c84123f4bc60e9e4dbe767e9e02 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 12 Jul 2002 23:29:26 +0000 Subject: [PATCH] (ange-ftp-write-region): Don't bind executing-kbd-macro; instead, pass non-nil VISIT arg to ange-ftp-real-write-region. --- lisp/net/ange-ftp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 10d759c1494..27cf72caba5 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3317,12 +3317,12 @@ system TYPE.") (coding-system-used last-coding-system-used)) (unwind-protect (progn - (let ((executing-kbd-macro t) - (filename (buffer-file-name)) + (let ((filename (buffer-file-name)) (mod-p (buffer-modified-p))) (unwind-protect (progn - (ange-ftp-real-write-region start end temp nil visit) + (ange-ftp-real-write-region start end temp nil + (or visit 'quiet)) (setq coding-system-used last-coding-system-used)) ;; cleanup forms (setq coding-system-used last-coding-system-used) -- 2.30.2